home *** CD-ROM | disk | FTP | other *** search
/ HyperLib 1997 Winter - Disc 1 / HYPERLIB-1997-Winter-CD1.ISO.7z / HYPERLIB-1997-Winter-CD1.ISO / オンラインウェア / UTIL / Alpha 6.5.sit / Tcl / Modes / html.tcl < prev    next >
Text File  |  1996-08-15  |  10KB  |  311 lines
  1. #================================================================================
  2. #
  3. # html.tcl, HTML mode 1.2:  macros and bindings for editing HTML documents.
  4. #
  5. #================================================================================
  6. # 
  7. # version 0.24 (16 July 95) by Scott W. Brim <swb1@cornell.edu>
  8. # version 1.0 -- 1.2 (August 96) by Johan Linde <jl@theophys.kth.se>
  9. #
  10. # See HTML Help in the Help folder.
  11. #
  12. # Original ideas taken from Marc Andreesen's html.el and Tom Scavo's latex.tcl.
  13. #
  14. # If you make improvements to this file, please share them!
  15. #
  16. #                                     Johan Linde <jl@theophys.kth.se>
  17. #
  18. #================================================================================
  19.  
  20. # called by Alpha to load HTML in.  
  21. proc htmlDummy {} {}
  22. proc htmlMenu {} {}
  23.  
  24. #===============================================================================
  25. # Global variables and their management
  26. #===============================================================================
  27.  
  28. if {![info exists htmlMenu]} {set htmlMenu    "･135"}
  29.  
  30. set commentPreString "<!-- "
  31. set commentSufString " -->"
  32.  
  33. # Unsetting old flags and variables which may be defined in arrdefs.tcl 
  34. catch {unset HTMLmodeVars(dlEntries)}
  35. catch {unset HTMLmodeVars(useCtlCmd)}
  36. catch {unset HTMLmodeVars(allContainers)}
  37. catch {unset HTMLmodeVars(quotedAttrs)}
  38. catch {unset HTMLmodeVars(htmlBindPrefix)}
  39. catch {unset HTMLmodeVars(htmlSBindPrefix)}
  40. catch {unset HTMLmodeVars(htmlMenuPrefix)}
  41. catch {unset HTMLmodeVars(htmlSMenuPrefix)}
  42. catch {unset HTMLmodeVars(URLAttrs)}
  43. catch {unset HTMLmodeVars(ColorAttrs)}
  44. catch {unset HTMLmodeVars(elemAttrsForAll)}
  45. catch {unset HTMLmodeVars(useStatusBar)}
  46.  
  47. # Browser
  48. if {![info exists browserSig]} {set browserSig MOSS}
  49. # newModeVar HTML browserSig {MOSS} 0
  50.  
  51. # word breaking and word wrapping
  52. newModeVar HTML wordBreak {¥w+} 0
  53. newModeVar HTML wordBreakPreface {(¥W)} 0
  54. newModeVar HTML wrapBreak {[¥w_]+} 0
  55. newModeVar HTML wrapBreakPreface {([^¥w_])} 0
  56.  
  57.  
  58.  
  59. newModeVar HTML wordWrap        1    1
  60. newModeVar HTML prefixString    $commentPreString    0
  61. newModeVar HTML suffixString    $commentSufString    0
  62.  
  63. # URL to home page.
  64. newModeVar HTML baseURL {} 0
  65. newModeVar HTML basePath {} 0
  66. # Paths to footer files.
  67. newModeVar HTML footers {} 0
  68. # Tag color
  69. newModeVar HTML tagColor        blue 0
  70. # Should elements be lower case?
  71. newModeVar HTML useLowerCase    0    1
  72. # Should ･'s be inserted?
  73. newModeVar HTML    useTabMarks        1    1
  74. # Is <p> a container?
  75. newModeVar HTML pIsContainer    1    1
  76. # Are LI DT and DD containers 
  77. newModeVar HTML lidtAreContainers 0  1
  78. # A list of URLs, cached, to pick from for insertion
  79. newModeVar HTML URLs            {}    0
  80. # A window cache with frames.
  81. newModeVar HTML windows        {}    0
  82. # When browser is launched, should it be brought to front?
  83. newModeVar HTML    browseInForeground    1    1
  84. # list of commonly used character entities
  85. newModeVar HTML defaultCommonChars {"less than" "greater than" "ampersand"} 0
  86. newModeVar HTML commonChars $HTMLmodeVars(defaultCommonChars) 0
  87. # Which HTML package?
  88. newModeVar HTML htmlPackageToUse 1 0
  89. # Include event handlers in attribute dialog?
  90. newModeVar HTML inclEventHandler 0  1
  91. # Beep when asking for attributes in the status bar?
  92. newModeVar HTML promptNoisily    1    1
  93. # Input from big windows?
  94. newModeVar HTML useBigWindows     1    1
  95.  
  96.  
  97. # JavaScript stuff
  98. newModeVar HTML JavaScriptColoring 0 1
  99. newModeVar HTML JavaScriptColor    magenta 0
  100. newModeVar HTML stringColor green 0
  101. newModeVar HTML elecRBrace 0 1
  102. newModeVar HTML elecLBrace 0 1
  103.  
  104. # These mode variables should not appear in the config dialog.
  105.  
  106. set HTMLinvisibleModeVars(htmlPackageToUse) 1
  107. set HTMLinvisibleModeVars(footers) 1
  108. set HTMLinvisibleModeVars(windows) 1
  109. set HTMLinvisibleModeVars(URLs) 1
  110. set HTMLinvisibleModeVars(defaultCommonChars) 1
  111. set HTMLinvisibleModeVars(commonChars) 1
  112. set HTMLinvisibleModeVars(browserSig) 1
  113. set HTMLinvisibleModeVars(baseURL) 1
  114. set HTMLinvisibleModeVars(basePath) 1
  115.  
  116. # These attributes are URLs.
  117. set htmlURLAttr    {HREF= SRC= LOWSRC= ACTION= USEMAP= BACKGROUND= CODEBASE= PLUGINSPAGE=}
  118. # These element attributes are colors
  119. set htmlColorAttr    {BGCOLOR= TEXT= LINK= VLINK= ALINK= COLOR= BORDERCOLOR=}
  120. # These attributes are windows
  121. set htmlWindowAttr {TARGET=}
  122. # Special cases with URLs, colors and windows
  123. set htmlSpecURL {}
  124. set htmlSpecColor {}
  125. set htmlSpecWindow {}
  126. # These elements can be in document HEAD.
  127. set htmlHeadElements1 {BASE ISINDEX LINK META SCRIPT}
  128. set htmlHeadElements3 {BASE ISINDEX LINK META}
  129. # These elements are plug-ins.
  130. set htmlPlugins {EMBED LIVEAUDIO LIVEVIDEO "QUICKTIME MOVIE" "QUICKTIME VR" REALAUDIO}
  131. # HTML mode version
  132. set htmlVersion 1.2
  133.  
  134. #
  135. # Internal Globals
  136. #
  137. set htmlCurSel    ""
  138. set htmlIsSel    0
  139. set htmlExtIsLoaded 0
  140. set html32IsLoaded 0
  141.  
  142. set htmlIsLoaded 1
  143. if { [catch {source "$HOME:Tcl:Modes:htmlEngine.tcl"}] } {
  144.     set htmlIsLoaded 0
  145.     beep
  146.     alertnote "Loading of htmlEngine.tcl failed"
  147. }
  148.  
  149.  
  150. if { [catch {source "$HOME:Tcl:Modes:htmlElems.tcl"}] } {
  151.     set htmlIsLoaded 0
  152.     beep
  153.     alertnote "Loading of htmlElems.tcl failed"
  154. }
  155.  
  156. if { [catch {source "$HOME:Tcl:Modes:htmlMenu.tcl"}] } {
  157.     set htmlIsLoaded 0
  158.     beep
  159.     alertnote "Loading of htmlMenu.tcl failed"
  160. }
  161.  
  162. if {!$HTMLmodeVars(useBigWindows) && [catch {source "$HOME:Tcl:Modes:htmlExtra.tcl"}] } {
  163.     set htmlIsLoaded 0
  164.     beep
  165.     alertnote "Loading of htmExtra.tcl failed"
  166. }
  167.  
  168. #
  169. # Read custom elements
  170. #
  171. # A more advance version of this proc will be needed in future versions of 
  172. # HTML mode, which checks that the custom additions don't conflict with 
  173. # new elements added to HTML mode.
  174. proc htmlReadAdditions {} {
  175.     global PREFS htmlElemAttrRequired1 htmlElemAttrOptional1 htmlElemAttrChoices1
  176.     global htmlElemAttrNumber1 htmlElemEventHandler1 htmlElemKeyBinding htmlElemProc
  177.     global htmlExtIsLoaded htmlURLAttr htmlColorAttr htmlWindowAttr htmlPlugins
  178.     global htmlSpecURL htmlSpecColor htmlSpecWindow
  179.     
  180.     message "Loading custom elementsﾉ"
  181.     
  182.     htmlExtensions
  183.     set htmlExtIsLoaded 1
  184.     rename htmlExtensions ""
  185.     
  186.     if {![catch {set fid [open $PREFS:HTMLadditions.tcl r]}]} {
  187.         set additions [string trimright [read $fid] "¥n"]
  188.         close $fid
  189.         foreach line [lrange [split $additions "¥n"] 1 end] {
  190.             catch {eval [lindex $line 1]}
  191.         }
  192.     }
  193. }
  194.  
  195.  
  196. #
  197. # Color support
  198. #
  199.  
  200. proc htmlColorizing {} {
  201.      global HTMLmodeVars HTMLwords htmlElemAttrOptional1 htmlElemAttrRequired1
  202.      global htmlExtIsLoaded htmlElemEventHandler1
  203.      
  204.      set HTMLKeyWords {}
  205.     if {[info exists HTMLwords]} {set HTMLKeyWords [concat $HTMLKeyWords $HTMLwords]}
  206.  
  207.     if {$HTMLmodeVars(JavaScriptColoring)} {
  208.         if {!$htmlExtIsLoaded} {
  209.             htmlExtensions
  210.             set htmlExtIsLoaded 1
  211.             rename htmlExtensions ""
  212.         }
  213.         set allHTMLwords [array names htmlElemAttrOptional1]
  214.         foreach elem $allHTMLwords {
  215.             lappend allHTMLkeywords "<${elem}" "/${elem}"
  216.             if {[info exists htmlElemAttrRequired1($elem)]} {
  217.                 foreach attr $htmlElemAttrRequired1($elem) {
  218.                     if {[lsearch -exact $allHTMLkeywords $attr] < 0} {
  219.                         lappend allHTMLkeywords $attr
  220.                     }
  221.                 }
  222.             }    
  223.             foreach attr $htmlElemAttrOptional1($elem) {
  224.                 if {[lsearch -exact $allHTMLkeywords $attr] < 0} {
  225.                     lappend allHTMLkeywords $attr
  226.                 }
  227.             }
  228.         }
  229.         
  230.         lappend allHTMLkeywords "<INPUT"
  231.         set JavaScriptWords {break continue for in function if else new return this var while with true false }
  232.         foreach elem [array names htmlElemEventHandler1] {
  233.             foreach event $htmlElemEventHandler1($elem) {
  234.                 if {[lsearch -exact $JavaScriptWords $event] < 0} {
  235.                     lappend JavaScriptWords $event
  236.                 }
  237.             }
  238.         }
  239.         regModeKeywords -i "<" -i ">"  -I $HTMLmodeVars(tagColor) -e "//" -b "/*" "*/" ¥
  240.         -s $HTMLmodeVars(stringColor) -k $HTMLmodeVars(JavaScriptColor) ¥
  241.         HTML $JavaScriptWords
  242.         regModeKeywords -a -k $HTMLmodeVars(tagColor) ¥
  243.         HTML [concat $HTMLKeyWords $allHTMLkeywords]    
  244.     } else {
  245.         regModeKeywords -b "<" ">" -c $HTMLmodeVars(tagColor) ¥
  246.         -k $HTMLmodeVars(tagColor) HTML $HTMLKeyWords
  247.     }
  248. }
  249.  
  250. # Change color when a color variable is changed.
  251. proc htmlChangeColorizing {name1 name2 op} {
  252.     global HTMLmodeVars
  253.     if {$name2 == "JavaScriptColoring" } {
  254.         htmlColorizing
  255.         message "Coloring may not change until you switch to another window."
  256.     } elseif {$name2 == "tagColor"} {
  257.         if {!$HTMLmodeVars(JavaScriptColoring)} {
  258.             regModeKeywords -a -c $HTMLmodeVars(tagColor) HTML
  259.         } else {
  260.             htmlColorizing
  261.             message "Coloring may not change until you switch to another window."
  262.         }
  263.     } elseif {$name2 == "JavaScriptColor" && $HTMLmodeVars(JavaScriptColoring)} {
  264.         htmlColorizing
  265.         message "Coloring may not change until you switch to another window."
  266.     }
  267.     centerRedraw
  268. }
  269.  
  270. proc htmlShadowAttrUse {name1 name2 op} {
  271.     global HTMLmodeVars htmlMenu
  272.     if {$HTMLmodeVars(useBigWindows)} {
  273.         enableMenuItem $htmlMenu "Use Attributes" off
  274.     } else {
  275.         enableMenuItem $htmlMenu "Use Attributes" on
  276.     }
  277. }
  278.  
  279. trace variable HTMLmodeVars(tagColor) w htmlChangeColorizing
  280. trace variable HTMLmodeVars(JavaScriptColor) w htmlChangeColorizing
  281. trace variable HTMLmodeVars(JavaScriptColoring) w htmlChangeColorizing
  282. trace variable HTMLmodeVars(useBigWindows) w htmlShadowAttrUse
  283.  
  284. if {$htmlIsLoaded} {
  285.     if {[file exists $PREFS:HTMLadditions.tcl]} {catch {htmlReadAdditions} }
  286.     rename htmlReadAdditions ""
  287.     htmlBindKeys
  288.     message "Building HTML menuﾉ"
  289.     htmlBuildMenu
  290.     htmlColorizing
  291.     message "HTML initialization complete."
  292. } else {
  293.     message "HTML initialization failed."
  294. }
  295.  
  296. unset htmlIsLoaded
  297.  
  298. #===============================================================================
  299. proc parseFuncsHTML {} {
  300.     set pos 0
  301.     while {[set res [search -s -f 1 -r 1 -i 1 -n {name=¥"?¥w+¥"?} $pos]] != ""} {
  302.         set text [getText [car $res] [expr [nextLineStart [cadr $res]] - 1]]
  303.         if {[regexp -nocase {name=¥"?(¥w+)¥"?} $text dummy word]} {
  304.             lappend m $word [lineStart [car $res]]
  305.         }
  306.         set pos [cadr $res]
  307.     }
  308.     return $m
  309. }
  310.  
  311.